home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 January
/
CHIP Turkiye Ocak 1998.iso
/
ARACLAR
/
TF95140
/
TEKFCT95.EXE
/
0
/
RCDATA
/
TMAINFAX
/
TMAINFAX.txt
< prev
Wrap
Text File
|
1997-07-12
|
8KB
|
342 lines
object MainFax: TMainFax
Left = 283
Top = 106
Width = 467
Height = 361
BorderIcons = []
Caption = 'TechFacts 95 Fax Utility'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
Icon.Data = {<image000.ico>}
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 16
object Label1: TLabel
Left = 16
Top = 16
Width = 48
Height = 13
Caption = 'Station Id:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 16
Top = 48
Width = 60
Height = 13
Caption = 'Fax Number:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 238
Top = 48
Width = 50
Height = 13
Caption = 'Dial Prefix:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 16
Top = 74
Width = 58
Height = 13
Caption = 'Fax Header:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 221
Top = 74
Width = 63
Height = 14
AutoSize = False
Caption = 'Com Port:'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 291
Top = 74
Width = 7
Height = 15
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 93
Top = 14
Width = 177
Height = 24
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'TechFacts 95'
end
object Edit2: TEdit
Left = 93
Top = 46
Width = 137
Height = 24
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object Edit4: TEdit
Left = 293
Top = 46
Width = 57
Height = 24
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object Panel1: TPanel
Left = 16
Top = 90
Width = 343
Height = 104
TabOrder = 3
object Label3: TLabel
Left = 10
Top = 75
Width = 46
Height = 13
Caption = 'Message:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 10
Top = 10
Width = 26
Height = 13
Caption = 'From:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 10
Top = 42
Width = 16
Height = 13
Caption = 'To:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Edit3: TEdit
Left = 62
Top = 73
Width = 265
Height = 24
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
Text = 'TechFacts 95 Fax Message'
end
object Edit6: TEdit
Left = 62
Top = 8
Width = 137
Height = 24
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object Edit7: TEdit
Left = 62
Top = 40
Width = 153
Height = 24
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
end
object Panel2: TPanel
Left = 18
Top = 198
Width = 341
Height = 25
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object Panel3: TPanel
Left = 0
Top = 301
Width = 459
Height = 33
Align = alBottom
TabOrder = 5
object Panel4: TPanel
Left = 266
Top = 1
Width = 192
Height = 31
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object BitBtn2: TBitBtn
Left = 8
Top = 3
Width = 82
Height = 23
Caption = '&Send Fax'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
333333333333337FF3333333333333903333333333333377FF33333333333399
03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
3333777777333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn1: TBitBtn
Left = 99
Top = 3
Width = 81
Height = 23
Caption = '&Cancel'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn1Click
Kind = bkCancel
end
end
end
object ApdComPort1: TApdComPort
ComNumber = 3
InSize = 8192
OutSize = 8192
AutoOpen = False
HWFlowOptions = [hwfUseRTS, hwfRequireCTS]
BufferFull = 7372
BufferResume = 819
TraceName = 'c:\APD.TRC'
LogName = 'APD.LOG'
Left = 344
end
object ApdSendFax1: TApdSendFax
FaxClass = fcUnknown
ComPort = ApdComPort1
StatusDisplay = ApdFaxStatus1
FaxFile = 'd:\async\read.apf'
StatusInterval = 327
FaxFileExt = 'APF'
OnFaxFinish = ApdSendFax1FaxFinish
PhoneNumber = '260-7151'
Left = 184
end
object ApdFaxStatus1: TApdFaxStatus
Position = poScreenCenter
Ctl3D = True
Visible = False
Fax = ApdSendFax1
Left = 216
end
object OpenDialog1: TOpenDialog
DefaultExt = 'TXT'
FileEditStyle = fsEdit
Filter = 'Text Files|*.txt|Fax Files|*.apf'
Title = 'InfoSpy TechFax File Selection'
Left = 248
end
object FaxConverter: TApdFaxConverter
FontFile = 'APFAX.FNT'
FontType = ffStandard
Left = 312
end
object ApdModem1: TApdModem
ComPort = ApdComPort1
InitCmd = 'ATZ^M'
DialCmd = 'ATDT'
DialTerm = '^M'
DialCancel = '^M'
HangupCmd = '+++~~~ATH0^M'
ConfigCmd = 'ATE1Q0X1V1^M'
AnswerCmd = 'ATA^M'
OkMsg = 'OK'
ConnectMsg = 'CONNECT'
BusyMsg = 'BUSY'
VoiceMsg = 'VOICE'
NoCarrierMsg = 'NO CARRIER'
NoDialToneMsg = 'NO DIALTONE'
ErrorMsg = 'ERROR'
RingMsg = 'RING'
LockDTE = True
Left = 280
end
end